home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Divers Computer Bench⁄Apple / Géoport / GeoPort™ PWMAC 1.0.2⁄1.5.1.sea / GeoPort™ PWMAC 1.0.2_1.5.1 / GeoPort™ Software / Express Modem CCL < prev    next >
Text File  |  1994-02-12  |  15KB  |  559 lines

  1. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  2. !
  3. !     AppleLink Express Modem Script - 11/27/92 - V1.0
  4. !
  5. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  6. !    Modem & Tool Setup Sequence
  7. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  8. !
  9. !
  10. !
  11. -LABEL 0
  12. SetVar 1 0
  13. SetVar 2 0
  14. SetVar 3 0
  15. !    Determine if we are using the CTB & whether the Express Modem Tool is selected
  16. !
  17. -LABEL 1
  18. CanBtn 91
  19. NoCTB 53
  20. CTBClose
  21. !
  22. !    check for blank fields, select, configure & open the Express Modem Tool
  23. !
  24. -LABEL 2
  25. IfInJMP " " "~USER" 50
  26. IfInJMP "-" "~USER" 50
  27. IfEqJMP "" "~FONE" 52
  28. Flush
  29. DsplyMsg Opening the Express Modem Tool…
  30. CTBTool 54 56 0 Express Modem Tool
  31. CTBParam 56 ModemMode DataUser TypeOfCall DirectATCommands Parity None DataBits 8 StopBits 1 Handshake XON/XOFF
  32. CTBOpen 4
  33. Jump 55
  34. !
  35. !    Reset & configure the Express Modem
  36. !
  37. -LABEL 4
  38. ChrDelay 0
  39. Flush
  40. !
  41. -LABEL 5
  42. DsplyPic 1
  43. DsplyMsg Resetting the Express Modem…
  44. MatchStr 1 6 OK
  45. Xmit AT&F\13
  46. Wait 300
  47. IncVar 1
  48. IfVar 1 3 47
  49. Jump 5
  50. !
  51. -LABEL 6
  52. Flush
  53. MatchStr 1 9 OK
  54. Xmit ATE0X4W1&Q0\13
  55. Wait 120
  56. IncVar 1
  57. IfVar 1 3 47
  58. Jump 6
  59. !
  60. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  61. !    Modem Connect Sequence
  62. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  63. !
  64. !    Attempt to dial the AppleLink phone number & wait for the modem response
  65. !
  66. -LABEL 9
  67. DsplyMsg Dialing ~FONE…
  68. MatchStr 1 20 CONNECT
  69. MatchStr 2 43 BUSY
  70. MatchStr 3 48 NO CARRIER
  71. MatchStr 4 44 NO ANSWER
  72. MatchStr 5 45 NO DIALTONE
  73. MatchStr 6 46 MODEM IN USE
  74. Pause 30
  75. CanBtn 90
  76. Xmit ATD~TONE~FONE\13
  77. Wait 600
  78. DsplyMsg Waiting for connection…
  79. Wait 2000
  80. IncVar 1
  81. IfVar 1 3 61
  82. DsplyMsg No answer; trying again…
  83. JSR 100
  84. Pause 30
  85. Flush
  86. Jump 9
  87. !
  88. -LABEL 10
  89. IncVar 2
  90. IfVar 2 4 73
  91. IfEqJmp "~FON2" "-------------" 15
  92. IFEqJmp "~FON2" "" 15
  93. DsplyMsg The network modem is busy; trying alternate number…
  94. JSR 100
  95. Pause 30
  96. Flush
  97. !
  98. -LABEL 11
  99. DsplyMsg Dialing ~FON2…
  100. MatchStr 1 20 CONNECT
  101. MatchStr 2 43 BUSY
  102. MatchStr 3 48 NO CARRIER
  103. MatchStr 4 44 NO ANSWER
  104. MatchStr 5 45 NO DIALTONE
  105. MatchStr 6 46 MODEM IN USE
  106. Pause 30
  107. CanBtn 90
  108. Xmit ATD~TONE~FON2\13
  109. Wait 600
  110. DsplyMsg Waiting for connection…
  111. Wait 2000
  112. IncVar 1
  113. IfVar 1 3 61
  114. DsplyMsg No answer; trying again…
  115. JSR 100
  116. Pause 30
  117. Flush
  118. Jump 11
  119. !
  120. -LABEL 12
  121. IncVar 2
  122. IfVar 2 4 64
  123. DsplyMsg The alternate phone number is busy; trying first number…
  124. JSR 100
  125. Pause 30
  126. Flush
  127. Jump 9
  128. !
  129. -LABEL 15
  130. DsplyMsg The network phone number is busy; trying again…
  131. JSR 100
  132. Pause 30
  133. Flush
  134. Jump 9
  135. !
  136. !    Received the "CONNECT" or "CARRIER" string
  137. !
  138. -LABEL 20
  139. MatchStr 1 21 300
  140. MatchStr 2 22 1200
  141. MatchStr 3 23 2400
  142. MatchStr 4 24 4800
  143. MatchStr 5 25 7200
  144. MatchStr 6 26 9600
  145. MatchStr 7 27 12000
  146. MatchStr 8 28 14400
  147. Wait 60
  148. !
  149. !    Handle different connection speeds for "CONNECT" or "CARRIER" message
  150. !
  151. -LABEL 21
  152. DsplyMsg Connected at 300 bps.
  153. Jump 30
  154. !
  155. -LABEL 22
  156. DsplyMsg Connected at 1200 bps.
  157. Jump 30
  158. !
  159. -LABEL 23
  160. DsplyMsg Connected at 2400 bps.
  161. Jump 30
  162. !
  163. -LABEL 24
  164. DsplyMsg Connected at 4800 bps.
  165. Jump 30
  166. !
  167. -LABEL 25
  168. DsplyMsg Connected at 7200 bps.
  169. Jump 30
  170. !
  171. -LABEL 26
  172. DsplyMsg Connected at 9600 bps.
  173. Jump 30
  174. !
  175. -LABEL 27
  176. DsplyMsg Connected at 12,000 bps.
  177. Jump 30
  178. !
  179. -LABEL 28
  180. DsplyMsg Connected at 14,400 bps.
  181. Jump 30
  182. !
  183. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  184. !     Modem Disconnect Sequence
  185. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  186. !
  187. *-LABEL 0
  188. *SetVar 1 0
  189. *MatchStr 1 5 NO CARRIER
  190. *MatchStr 2 1 OFF
  191. *MatchStr 3 1 CRU
  192. *Wait 800
  193. !
  194. *-LABEL 1
  195. *Wait 120  -- the modem should hang up automatically
  196. *MatchStr 2 3 OK
  197. !
  198. *-LABEL 2
  199. *ChrDelay 0
  200. *Xmit +++
  201. *Pause 80
  202. *Xmit AT\13
  203. *Wait 100
  204. *IncVar 1
  205. *IfVar 1 2 5
  206. *Jump 2
  207. !
  208. *-LABEL 3
  209. *SetVar 1 0
  210. *MatchStr 2 5 OK
  211. !
  212. *-LABEL 4
  213. *ChrDelay 0
  214. *Pause 80
  215. *Xmit ATH\13
  216. *Wait 100
  217. *IncVar 1
  218. *IfVar 1 2 5
  219. *Jump 4
  220. !
  221. *-LABEL 5
  222. *CTBClose
  223. *Exit 0
  224. !
  225. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  226. !    LABELs 31-39: Network Connect Sequence
  227. !
  228. !    DO NOT CHANGE THE INFORMATION IN THIS SECTION.
  229. !    DOING SO WILL PREVENT THE PROPER COMPLETION OF THE CONNECTION.
  230. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  231. !
  232. -LABEL 30
  233. Flush
  234. Pause 120
  235. DsplyPic 2
  236. DsplyMsg Requesting network attention…
  237. MatchStr 1 48 NO CARRIER
  238. MatchStr 2 32 U#
  239. MatchStr 3 63 \\230
  240. MatchStr 4 10 SERVICE INTERRUPTED
  241. Pause 4
  242. Xmit H
  243. Pause 4
  244. ChrDelay 18
  245. Xmit HH
  246. Wait 42
  247. Xmit H
  248. Wait 900
  249. IncVar 3
  250. IfVar 3 3 62
  251. DsplyMsg The network is not responding; trying again…
  252. JSR 100
  253. Pause 30
  254. Flush
  255. DsplyPic 0
  256. Jump 1
  257. !
  258. -LABEL 32 -- Box  3 (Establishing connection)
  259. DsplyMsg Network is acknowledging.  Requesting access…
  260. DsplyPic 3
  261. SetTries 0   -- for REENTER
  262. MatchStr 1 48 NO CARRIER
  263. MatchStr 2 71 SYSTEM IS UNAVAIL
  264. MatchStr 3 72 TEMPORARY PROB
  265. MatchStr 4 81 BAD VERSION
  266. MatchStr 5 82 OUT OF TIME
  267. MatchStr 6 83 FATAL ERROR PREPAR
  268. MatchStr 7 84 QUIKCOMM UNAVAI
  269. MatchStr 8 73 SERVICE INTERRUPTED
  270. MatchStr 9 36 VALIDATION FAULT
  271. MatchStr 10 36 INCORRECT FORMA
  272. MatchStr 11 36 REENTER
  273. MatchStr 12 74 NO FILE SYSTEM GIVEN
  274. MatchStr 13 35 INVALID QUIKCOMM
  275. MatchStr 14 34 SYSTEM READY
  276. ChrDelay 0
  277. Xmit \08\08
  278. Xmit ~CODE,~USER,!~USER,~PASS;~VERS;MAC;EFX;~DATE\13
  279. Wait 200
  280. DsplyPic 4
  281. DsplyMsg Waiting for access…
  282. !
  283. -LABEL 33
  284. Wait 1800
  285. Jump 62                                 
  286. !
  287. -LABEL 34
  288. DsplyPic 4
  289. DsplyMsg Access granted.  Waiting for AppleLink Services…
  290. DsplyPic 5
  291. DsplyPic 6
  292. EFX_ON
  293. Exit 0
  294. !
  295. -LABEL 35
  296. DsplyPic 5
  297. IncVar 4
  298. IfVar 4 3 80
  299. GetPass 2 94 The AppleLink Address “~USER” or password is not being accepted.  To try again, reenter your password and click OK.
  300. DsplyMsg Trying again with re-entered password…
  301. Xmit ~USER,~XWRD;~VERS;MAC;EFX;~DATE\13
  302. CanBtn 94
  303. Wait 600
  304. Jump 85
  305. !
  306. -LABEL 36
  307. DsplyPic 5
  308. IncVar 5
  309. IfVar 5 2 37
  310. DsplyMsg Host not accepting system number; trying again…
  311. Xmit ~CODE,~USER,!~USER,~PASS;~VERS;MAC;EFX;~DATE\13
  312. Jump 32
  313. !
  314. -LABEL 37
  315. IfVar 5 3 70
  316. IncVar 5
  317. DsplyMsg Trying a different system number…
  318. Xmit NJL37300,APPLE,~USER,!~USER,~PASS;~VERS;MAC;EFX;~DATE\13
  319. MatchStr 13 70 INVALID QUIKCOMM ID
  320. MatchStr 14 38 SYSTEM READY
  321. Wait 600
  322. Jump 70
  323. !
  324. -LABEL 38
  325. Alert 90 The System Number “~CODE” entered in the Set Up box is incorrect.  It should be “NJL37300,APPLE”.  The correct system number has been entered for you.\13Please change your setup when you disconnect.\13Click OK to complete the connection.
  326. Jump 33
  327. !
  328. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  329. !
  330. !    ERROR MESSAGES
  331. !
  332. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  333. !    LABELs 40-49: MODEM ERRORS
  334. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  335. !
  336. -LABEL 43                              BUSY
  337. Alert 94 The number "~FONE" is busy.\13\13Please verify the phone number or try again later.
  338. JSR 95
  339. Exit -1
  340. !
  341. -LABEL 44                              NO ANSWER
  342. Alert 94 The number "~FONE" does not answer.\13\13Please verify the phone number or try again later.
  343. JSR 95
  344. Exit -1
  345. !
  346. -LABEL 45                              NO DIALTONE
  347. Alert 94 No dialtone was detected.\13\13Please assure that the modem phone cable is properly connected.
  348. JSR 95
  349. Exit -1
  350. !
  351. -LABEL 46                              MODEM IN USE
  352. Alert 94 The Express Modem is currently in use by another application.\13\13Perhaps you have a connection established with AppleTalk Remote Access or you are currently sending or receiving a fax.  Please try again later.
  353. JSR 95
  354. Exit -1
  355. !
  356. -LABEL 47                              MODEM NOT RESPONDING
  357. Alert 94 The Express Modem isn’t responding to requests.\13\13Please check the Express Modem software installation, phone connections, and restart AppleLink.
  358. JSR 95
  359. Exit -1
  360. !
  361. -LABEL 48                              NO CARRIER
  362. Alert 94 The phone line isn’t staying connected while attempting to connect to the network phone number.\13\13Please try again or try another network phone number.
  363. JSR 95
  364. Exit -1
  365. !
  366. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  367. !    LABELS 50-59: SETUP ERRORS
  368. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  369. !
  370. -LABEL 50 -- No AppleLink ID
  371. Alert 90 The AppleLink ID field has not been properly entered.\13\13Please enter your AppleLink ID in the AppleLink Connect dialog.
  372. Jump 92
  373. !
  374. -LABEL 52 -- No phone number
  375. Alert 90 You must enter a network phone number in the “Network Phone #” field in AppleLink Set Up dialog.\13\13Use the file “Access Numbers” on your AppleLink disk to find the number nearest you.
  376. Jump 92
  377. !
  378. -LABEL 53 -- The CTB not available 
  379. Alert 91 The CommToolBox could not be opened.\13\13Please check your installation and make sure the CommToolBox is selected in the AppleLink Set Up dialog.
  380. Jump 92
  381. !
  382. -LABEL 54 -- Express Modem Tool not selected
  383. Alert 91 The Express Modem Tool does not appear to be available.\13\13Please check that the Express Modem software has been properly installed and that the tool is in the Extensions folder.
  384. Jump 91
  385. !
  386. -LABEL 55 -- Express Modem Tool did not open
  387. Alert 91 The Express Modem Tool could not be opened.\13\13Perhaps the tool is already in use by another communications application?
  388. Jump 91
  389. !
  390. -LABEL 56 -- Express Modem Tool parameters are incorrect
  391. Alert 91 Encountered an error setting up the Express Modem Tool.\13\13Please check that the Express Modem software has been properly installed and that the tool is selected in the AppleLink Set Up dialog.
  392. Jump 91
  393. !
  394. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  395. !    LABELS 60-69: NETWORK NODE ERRORS
  396. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  397. !
  398. -LABEL 60
  399. JSR 96
  400. Alert 91 The network number is repeatedly busy.  Please try again later.\13\13Click OK to try again now.
  401. Jump 93
  402. !
  403. -LABEL 61
  404. JSR 96
  405. Alert 91 The network is not answering.  Please re-check the phone number.\13\13If the problem continues, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  406. Jump 93
  407. !
  408. -LABEL 62
  409. JSR 95
  410. Alert 91 The ~APPL network is not responding after repeated attempts.\13\13If the problem continues, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  411. Jump 93
  412. !
  413. -LABEL 63
  414. JSR 95
  415. Alert 91 Speed out of synch error.  Please report this problem to the Apple Online Services HelpLine at (408) 974-3309.\13\13Click OK to try again.
  416. Jump 93
  417. !
  418. -LABEL 64
  419. JSR 96
  420. Alert 91 Both the network number and alternate network number are busy.  Please try again later.\13\13Click OK to try again now.
  421. Jump 93
  422. !
  423. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  424. !    LABELS 70-79: MARK III ERRORS
  425. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  426. !
  427. -LABEL 70  •VALIDATION FAULT• -or- •INCORRECT FORMAT•
  428. Alert 90 The ~APPL host is not accepting your system number and/or system number password: “~CODE”.  Please call the Apple Online Services HelpLine at (408) 974-3309 for assistance.\13\13Click Cancel or OK to exit.
  429. Jump 90
  430. !
  431. -LABEL 71  •THAT SYSTEM IS UNAVAILABLE•
  432. JSR 95
  433. Alert 91 The ~APPL network is not available at this time.  It may be closed for routine maintenance.  Please try again later.\13\13Click Cancel or OK to exit.
  434. Jump 91
  435. !
  436. -LABEL 72  •TEMPORARY PROBLEM•
  437. JSR 95
  438. Alert 91 The Central Concentrator cannot support any more users at this time.  Please call the Apple Online Services HelpLine at (408) 974-3309 and report this problem.  You may try again later.\13\13Click Cancel or OK to exit.
  439. Jump 91
  440. !
  441. -LABEL 73  •SERVICE INTERRUPTED•
  442. Alert 90 The MRC node or host processor is unavailable.  Please call the Apple Online Services HelpLine at (408) 974-3309 and report this problem.  You may try again later.\13\13Click Cancel or OK to exit.
  443. Jump 90
  444. !
  445. -LABEL 74  •NO FILE SYSTEM GIVEN•
  446. Alert 90 The ~APPL network is currently down for emergency maintenance.  Please try again later.\13\13Click Cancel or OK to exit.
  447. Jump 90
  448. !
  449. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  450. !    LABELS 80-89: SWITCH ERRORS
  451. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  452. !
  453. -LABEL 80  •INVALID QUIKCOMM ID•
  454. Xmit STOP\13
  455. JSR 95
  456. Alert 91 The address “~USER” or the password entered was not accepted.  Check that all information in the Set Up dialog box is correct.  For assistance, please call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click Cancel or OK to exit.
  457. Jump 91
  458. !
  459. -LABEL 81  •BAD VERSION•
  460. JSR 95
  461. Alert 91 You are using an outdated version of the AppleLink software that can no longer access the network (version ~VERS).  Call the Apple Online Services HelpLine at (408) 974-3309 for assistance.\13\13Click Cancel or OK to exit.
  462. Jump 91
  463. !
  464. -LABEL 82  •OUT OF TIME•
  465. Alert 90 The network has reported that your account has exceeded its allocation of connect time.  If you need assistance, call the Apple Online Services HelpLine at (408) 974-3309.\13\13Click Cancel or OK to exit.
  466. Jump 90
  467. !
  468. -LABEL 83  •FATAL ERROR PREPARING SYSTEM•
  469. Alert 90 The host application has reported a serious error in preparing the system for use.  Please call the Apple Online Services HelpLine at (408) 974-3309 and report this problem.  You may try again later.\13\13Click Cancel or OK to exit.
  470. Jump 90
  471. !
  472. -LABEL 84  •QUIKCOMM UNAVAILABLE•
  473. Alert 90 The ~APPL host application is unavailable.  Please call the Apple Online Services HelpLine at (408) 974-3309 and report this problem.  You may try again later.\13\13Click Cancel or OK to exit.
  474. Jump 90
  475. !
  476. -LABEL 85
  477. Alert 90 The host has timed out.  You may have taken too long to reenter your password.\13\13Click Cancel or OK to exit.
  478. Jump 90
  479. !
  480. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  481. !    Disconnect Logic For Connect Sequence
  482. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  483. !
  484. !    Hang up, close the CTB, and return
  485. !
  486. -LABEL 90
  487. JSR 95
  488. !
  489. !    Close the CTB and exit
  490. !
  491. -LABEL 91
  492. DsplyMsg Closing the Express Modem Tool…
  493. CTBClose
  494. !
  495. !    Just exit
  496. !
  497. -LABEL 92
  498. Exit -1
  499. !
  500. !    Try again from square 1
  501. !
  502. -LABEL 93
  503. DsplyPic 0
  504. SetVar 1 0
  505. SetVar 2 0
  506. SetVar 3 0
  507. SetVar 4 0
  508. SetVar 5 0
  509. SetTries 0
  510. Flush
  511. Jump 1
  512. !
  513. !    Tell AppleLink to stop, hangup, close the CTB, and return
  514. !
  515. -LABEL 94
  516. Xmit STOP\13
  517. Jump 90
  518. !
  519. !    Display disconnecting message & hangup
  520. !
  521. -LABEL 95
  522. DsplyMsg Disconnecting…
  523. Jump 100
  524. !    Display reset the modem message & hangup
  525. !
  526. !
  527. -LABEL 96
  528. DsplyMsg Resetting the Express Modem…
  529. !
  530. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  531. !    Modem Escape & Hangup Logic
  532. !••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  533. !
  534. -LABEL 100
  535. MatchStr 1 102 OK
  536. MatchStr 2 102 NO CARRIER
  537. SetVar 8 0
  538. ChrDelay 0
  539. !
  540. -LABEL 101
  541. Pause 80
  542. Xmit +++
  543. Pause 80
  544. Xmit AT\13
  545. Wait 100
  546. IncVar 8
  547. IfVar 8 2 103
  548. Jump 101
  549. !
  550. -LABEL 102
  551. MatchStr 1 103 OK
  552. Xmit ATH\13
  553. Wait 200
  554. !
  555. -LABEL 103
  556. Return
  557. ###
  558.